home *** CD-ROM | disk | FTP | other *** search
- ;
- ; --- Version 2.2 90-10-12 10:46 ---
- ;
- ; CTask - SIO interrupt handler (IBM specific)
- ;
- ; Public Domain Software written by
- ; Thomas Wagner
- ; Ferrari electronic Gmbh
- ; Beusselstrasse 27
- ; D-1000 Berlin 21
- ; Germany
- ;
- ; This file is new with version 1.2.
- ;
- ; To avoid stack overflows while processing serial interrupts in
- ; the tsksio module, all SIO interrupts are routed through the
- ; "envelope" routines defined here.
- ;
- name tsksioi
- ;
- include tsk.mac
- ;
- .tsk_model
- ;
- public tsksio_int2
- public tsksio_int3
- public tsksio_int4
- public tsksio_int5
- public tsksio_int7
- public tsksio_int10
- public tsksio_int11
- public tsksio_int12
- public tsksio_int15
- ;
- Locext tsk_switch_stack
- Locext tsk_sio_int
- ;
- sioint macro irq
- ;
- tsksio_int&irq proc far
- call tsk_switch_stack
- callp tsk_sio_int,<irq>
- cli
- mov al,20h
- IF irq GE 8
- out 0a0h,al
- ENDIF
- out 20h,al
- iret
- ;
- tsksio_int&irq endp
- ;
- endm
- ;
- ;
- .tsk_code
- ;
- sioint 2
- sioint 3
- sioint 4
- sioint 5
- sioint 7
- sioint 10
- sioint 11
- sioint 12
- sioint 15
- ;
- .tsk_ecode
- end
-
-